home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / waxing a lizard < prev    next >
Text File  |  1999-06-15  |  793b  |  27 lines
  1. Category: kang -
  2. Title: waxing a Lizard   *
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: waxaliz.8bf
  6.  
  7. R:put((i-cos(get(2)*1)/val(1,120,10)+val(3,-10,60)-cos(get(2)*1)/val(0,120,10)),1),put(dif(cnv(get(1),get(1)-get(1)-val(2,0,120),get(1),get(1),get(1),get(1),get(1),get(1),get(1),get(1)),-get(2)),2),put(tan(dif(get(1),c)-75),3),put(mix(get(1),get(3),44,255)+188,4),put(mix(src(x+get(1),y+get(1),z),get(3),180,220)+77,5),val(4,get(4)+c,get(5))
  8.  
  9. G:put(mix(src(x+get(1),y+get(1),z),get(3),188,230)+77,5),val(4,get(4)+c,get(5))
  10.  
  11. B:put(mix(src(x+get(1),y+get(1),z),get(3),188,230)+77,5),val(4,get(4)+c,get(5))
  12.  
  13. A:c
  14.  
  15. ctl[0]: x hatch %
  16. ctl[1]: y hatch %
  17. ctl[2]: flux-size
  18. ctl[3]: i-valuation
  19. ctl[4]: syntone
  20.  
  21. val[0]: 228
  22. val[1]: 228
  23. val[2]: 0
  24. val[3]: 137
  25. val[4]: 137
  26.  
  27.